﻿Imports System.IO
Imports Microsoft.VisualStudio.TestTools.UnitTesting
Imports System.Net.Mail

Public MustInherit Class BaseTeste

    Protected Overrides Sub Finalize()
        '' Instantiate a new instance of MailMessage
        'Dim mMailMessage As New MailMessage()

        'Try
        '    ' Set the sender address of the mail message
        '    mMailMessage.From = New MailAddress("leonardo@miron.com.br")
        '    ' Set the recepient address of the mail message
        '    mMailMessage.To.Add(New MailAddress("leonardo@miron.com.br"))

        '    ' Set the subject of the mail message
        '    mMailMessage.Subject = "BASE.Finalize  MyClassInitialize " & My.Computer.Name & " - " & My.User.Name
        '    ' Set the body of the mail message
        '    mMailMessage.Body = "BASE.Finalize Verificando o MyClassInitialize. Hora de envio : " & Now.ToShortTimeString

        '    ' Set the format of the mail message body as HTML
        '    mMailMessage.IsBodyHtml = True
        '    ' Set the priority of the mail message to normal
        '    mMailMessage.Priority = MailPriority.Normal

        '    ' Instantiate a new instance of SmtpClient
        '    Dim mSmtpClient As New SmtpClient()
        '    mSmtpClient.Host = "smtp.miron.com.br"
        '    mSmtpClient.Port = 25
        '    ' Send the mail message
        '    mSmtpClient.Send(mMailMessage)
        'Catch ex As Exception

        'End Try
        

        'Dim _testRun As TestRun
        'Try
        '    Dim _arquivos() As String = Directory.GetFiles("\")
        '    For Each _arquivo In _arquivos
        '        Try

        '            _testRun = TRXSerializer.DESSerialize(_arquivo)

        'TRXLogger.Log(_testRun)

        '        Catch ex As Exception
        '            Console.WriteLine(ex.Message)
        '        End Try
        '    Next
        'Catch ex As Exception
        '    Console.WriteLine(ex.Message)
        'End Try

        MyBase.Finalize()
    End Sub


End Class
